1. 

2 . 

3. 

4. STAR GRAPH 01 VS 

5 CLEAR; BC=tf} FC=235; RETURN; NT*#; 8 [ 1 0 ) = / 

6 FOR A = 1 TO 200 ;BOX RNV ( 1 6 0 ) - SO , RNV ( 8 8) -■ 

7 FOR A =0 TO 1 80; 8 [ 10) = A; NEXT A 

8 8[17)=50;8[1 8) =25; 8[ 19) =100; 8[ 16)= 8; 8[21 ) =240; 8[ 22) =1 88; 
FOR A = 1 TO 10;8[16)=10-A;8[23)=Ax5;NEXT A 

9 *(2J )=205,”g(23) 



Jy^\ { i 



L 



1,1,1} NEXT A 



10 B=RNV[ 6 ) ;A=Bx2 
15 8[16)=BxRNV[10)x2 
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2 5 C= RNV [3] 

30 V.= RNV[4);1F 0=1 C= 3 

32 E=RNV [20) ; FOR F =1 TO E 

40 A=A+Dx2 ; B=B+V 

45 IF B > 20 GOTO 10 

50 LINE- A, -8,4 

60 LINE tf,[8x 2) ,C 

70 LINE A, -B , C 

80 L1NE-A, -B, C 

90 LINE J,-[Bx2) ,4 

100 LINE A ,B,C 

110 LINE- A , B , C 

- 1 25 8[1 8)=Sx5;5[19)=Sx10-A;8[17)=-Bx10+[-A) 
130 NEXT F 
140 GOTO 10 



B= 8438 
C=20084 
0=-6715 
E=8693 
F=20078 
G=- 1 4722 
H= 30 472 
1=2054 
J =-11459 
K= 41 0 7 
L=9211 
M= -14722 

N= 6 ( 1 92i#o £ baAA ) 

0=-1 61 30 

P=824 



1 . 

2. RAINBOW VIST LAY# I 
5 8[9) =#; 8 ( 10) =21 3 
48 [ 1 4) =255 

5 CLEAR, A=201 80;B=A;C=150 
10 X= 213; GOS UB C 
2 0 X= 5 1 40 ; GOS UB C 
30 X= 5 1 40 ; GOS UB C 
40 X= 5 1 40 ; GOS UB C 
5 0 X= 5 1 40 ; GOS UB C 
80 X= - 1 1 398;GOSUB C 
90 X= 1 0 39;GOSUB C 
100 X= -11400; GOS US C 
110 X=- 1 1776; GOS UB C 
120 X=20 1 82;GOSUB C 
1 30 Call B 

150 ${A) =X;A=A+ 2; RETURN 

LincA 182 mail be, deleted 
begone tunning .Stant 8 
Atop tape, to Ayn c. mid- 
dle. oi a cneen. ( once nun, 
pnognam cannot be halted) 



0=30639 
R=-1 1477 
S= 304 79 
T=-7 69 5 
U=- 1 0 87 
\7=-312 7 
( 0=200 30 
X= 1 841 3 
Y =29246 
1=3539 
BC=- 13829 

ThiA mack. pnog. lx nan In variable bu^^en 
Apace 8->ZfrBC which Ia the &oltowing byte.) 

% [20 1 30) .Set NT to ji-Enten. the vaniableA 8 
BC manaally- 8 [ 9 ) =20- : INPUT; CALL 20121--8 you 
get 64 colofiA . T o add the 1 1 0 1 10 00 boxeA, 

[to get almoAt all 256) -halt 8 enten thlA- 
10 FOR X= 1 66 8 4T01 99 9 8STEP20 ; FOR Y=#T04;%[X+ 

V) =255 ; NEXT Y;FOR Y =YT09 ;% [ X+Y ) = 1 70; NEXT Y 
;FOR Y=YT014}%[X+Y) = 85}NEXT Y;F0R Y=YT019;% 
[X+Y)=J8 

20 NEXT Y;NEXT X; X= 1 841 3; Y= 29 2 46 ; Call 20121 
Then- : INPUT; RUN [NT mu At be neAet to $ fiinAt) 

I you have a K:B.that plugA in tight pen 
You can enten the above w/o line #'<& while 
the pnognam iA nunning. [it haA t.p. intenup) 
Change to-"FOR X= 1 6 384 . . ." 8delete evenithinj 
a^ten NEXT X...To pnint out vaniableA to 
tape- :PR1NT; FOR A= 2 00 80T02 0 1 2 8STEP 2;T\J=A' 7 2- 
99 74- + RM "TV- 6/ J PRfbi T #0, V- ( A) ; Nerx ta ; PMfiir*8c=-i3m 



OPCODE FOR RAINBOW VISPLAV # 1 



Addness 


Opcode And 




Swap 


decimal 


location 


mnemonic 


Comments 


bytes 


numben. 


2 0 1 80 


D 5 


PUSH DE 


Save basic polnten 00D5 


2 1 3 




00 


NOP 


Flllen 






20182 


14 


INC D 


Line # Inc. ' s 


1414 


5 140 




14 


II 








20184 


1 4 
14 
1 4 


n 

n 




1414 


5 140 


2 0 181 


it 




1414 


5140 


J 


14 


n 








2 0188 


'14 
14 
~1 A 


n 

n 




1414 


5140 


20 190 


LD A,D 


Load acc. line# 


D31 A 


-11398 




D3 


OUT [<B2> 


),A Send line# to 






20 192 


~0F 


[<B2 )}pont FHlllne Int.neg. 


)040 F 


1039 




04 


INC B Inc. colon # 






20194 


"18 


LD A,B Load acc. w/ colon# 


0318 


-11400 




D3 


OUT { <B2> 


) , A Send colon to 






2 0196 


00 


[<B2>) 


post "0" 


D200 


-11116 




D2 


JP NC<B3>XB 2> Jump to"D” 






20 19 8 


D6 


<B2> 


Incnements 


4ED6 


20182 




4E 


< Bzfr Addness o{, jump 







4ED6[20182) 

6[14) In pnognam sets light pen lnte.JUiu.pt bit* . 6 [1 0) helps timing . 

Also allows. mone colons to be. seen. Z -80 Incs. dimply ovenfclow 
to IS a{)ten 255. 

METHOD OF RECORDING GRAPHICS ON TAPE 
I £ you want to necond a gnaphlcs picture., { on. anything that’s on 
the. s cneen. j , add till* tine, to the. pn.ogn.am that pnoduces It i ln.it . 

N 

IF TR{ 1 ) NT- 1 ; : PRINT; FOR A = 16384 TO 1 9 9 8 3 ; CX = - 7 6 ; CV = 40 jT V*% ( N) ; NEXT N 

A{ten adding this to youn pn.ogn.am, punch In; B = % { 2 0050 ) Then 
PRINT 6 . The numben you get will be used again when Inputting the 

picture. 

When a pattern Is produced that you want to second, slant youn. 
tape, and pull the tnlggen. Only the uppen lefit most connen will be 
dlstunbed a s It dump 6 to tape. Be sune you have enough tape, as It 
takes^ 4 min. 31 sec. wonth. 

To Input PX & pnog. &nom tape, set up any colons etc. , &lnst,then 

CLEAR ; '.INPUT; FOR A - 16 384 TO 19 9 8 3; % ( A )«KP; NEXT A; % (20050) =" the 
numben you got eanllen & on. B " Then "do" a»J sh*ri tape. 

When the cunson appeans In uppen le&t, the dump Is completed. 
HINT: Put youn colon #’s and’''B''on a tag on youn tape cassete with 
the plctune on It , so you dont {,ongct It. ( Without % [ 20050} the 
computen doesn't know the last byte In youn pnognam , and you won't 
be able to change lines In It laten.) 

Both the necond and Input pnocedune must be ennon §nee to get pno- 
gnam Intact. 






U 



